home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / STEP.FSL < prev    next >
Encoding:
Text File  |  1993-09-29  |  12.6 KB  |  315 lines
  1. #!fast-load 4.0 (step/step.s step/stepaux.s step/stepwrap.s)
  2. h0011 00F8
  3. x04STEP
  4. x13CREATE-SCHEME-MACRO
  5. lx04EXPRn
  6. x04EXPR
  7. x0CSYNTAX-ERROR
  8. s0015can't step expression
  9. x08FOR-EACH
  10. x10STEP-ENVIRONMENT
  11. x04EVAL
  12. x04WRAP
  13. x04HALT
  14. x0FSTEP-STOP-DEPTH
  15. x17USER-GLOBAL-ENVIRONMENT
  16. x18USER-INITIAL-ENVIRONMENT
  17. x05RESET
  18. x0FSTEP-CALL-DEPTH
  19. s0016invalid option to step
  20. t< 5 ▌C ì ê "  ¥ ê ê "  4 <*E 4      4 C5
  21. e " ,  █ ê "  
  22. █ ê ê "
  23.     ; ; e " ,  █ ê "  
  24. █ ê ê "
  25.   ; ; 5 
  26. z
  27. h0001 0007
  28. x0ESTEP-LEAP-MODE
  29. t;
  30. z
  31. h0001 000A
  32. x0FSTEP-CALL-DEPTH
  33. t;
  34. z
  35. h0001 000A
  36. x0FSTEP-STOP-DEPTH
  37. t ;
  38. z
  39. h0002 001F
  40. x14INCREMENT-CALL-DEPTH
  41. x0FSTEP-CALL-DEPTH
  42. t<;Q;
  43. z
  44. h0002 001F
  45. x14DECREMENT-CALL-DEPTH
  46. x0FSTEP-CALL-DEPTH
  47. t<;Q ;
  48. z
  49. h002C 0296
  50. x09STOP-STEP
  51. x0FSTEP-CALL-DEPTH
  52. x0FSTEP-STOP-DEPTH
  53. s0006[Step 
  54. s0002] 
  55. x0BFLUSH-INPUT
  56. s0006Halted
  57. s0005Going
  58. c51
  59. s0004Quit
  60. c52
  61. s0005Reset
  62. c4D
  63. s0004Step
  64. c49
  65. s0007Inspect
  66. x08%INSPECT
  67. c47
  68. s001AGo (Press any key to stop)
  69. c4C
  70. s0010switch mode to: 
  71. s0009Leap mode
  72. x02#T
  73. x0ESTEP-LEAP-MODE
  74. c43
  75. s000ACreap mode
  76. c54
  77. s0010toggle mode to: 
  78. c53
  79. s000Bshow mode: 
  80. c7F
  81. c3F
  82. s0027   ?    -- display this command summary
  83. s000F ctrl-Q -- Quit
  84. s002A ctrl-R -- Reset the level counter to zero
  85. s000F ctrl-M -- Step
  86. s0034 ctrl-G -- Go through deeper levels without stopping
  87. s0022 ctrl-I -- Inspect the environment
  88. s001E ctrl-L -- switch to Leap mode
  89. s001F ctrl-C -- switch to Creap mode
  90. s0016 ctrl-T -- Toggle mode
  91. s0014 ctrl-S -- Show mode
  92. s002DTo enter `ctrl-Q', press both `CTRL' and `Q'.
  93. s002B  ?  Invalid response...  Type `?' for help
  94. t<; _ "  \ "     ` "J│││╛"( 4│╡0¢  │     0 ╡; │││╝íQ@á e "    │√;
  95. e " │ ¿ e "
  96. 
  97. │; e "│  4!l  e "│; e "││╡!*  e "││╡!  e "*│"│ │╡ê!╤■ e ""│"│ │╡!ú■ e #î│╡ │╡!│╡"│╡#│╡$│╡%│╡&│╡'│╡(│╡)│╡*│╡╡!
  98. ■+│╡!ⁿ²
  99. z
  100. h000B 0073
  101. x0BREMOVE-STEP
  102. x10STEP-ENVIRONMENT
  103. x17USER-GLOBAL-ENVIRONMENT
  104. x06UNBIND
  105. x0ESTEP-LEAP-MODE
  106. x0FSTEP-CALL-DEPTH
  107. x0FSTEP-STOP-DEPTH
  108. x14INCREMENT-CALL-DEPTH
  109. x14DECREMENT-CALL-DEPTH
  110. x09STOP-STEP
  111. x19*THE-NON-PRINTING-OBJECT*
  112. t<; 4  4  4  4  4  4      4  4 
  113. ;
  114. z
  115. h00C0 1364
  116. lx17SYMBOL->DOWNCASE-STRINGlx0CCOMBINATION?lx08SPECIAL?lx06MACRO?lx09VARIABLE?lx13WRAP-PROCEDURE-ARGSlx0DWRAP-A-LAMBDAlx0DWRAP-A-DEFINElx0BWRAP-A-SET!lx0AWRAP-A-LETlx0BWRAP-A-LISTlx0BWRAP-A-CALLlx0CWRAP-AN-EVALlx0CWRAP-SPECIALlx10WRAP-COMBINATIONlx04WRAPn
  117. x17SYMBOL->DOWNCASE-STRING
  118. x0CCOMBINATION?
  119. x08SPECIAL?
  120. x06MACRO?
  121. x09VARIABLE?
  122. x13WRAP-PROCEDURE-ARGS
  123. x0DWRAP-A-LAMBDA
  124. x0DWRAP-A-DEFINE
  125. x0BWRAP-A-SET!
  126. x0AWRAP-A-LET
  127. x0BWRAP-A-LIST
  128. x0BWRAP-A-CALL
  129. x0CWRAP-AN-EVAL
  130. x0CWRAP-SPECIAL
  131. x10WRAP-COMBINATION
  132. x04WRAP
  133. x10STEP-ENVIRONMENT
  134. x02PP
  135. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  136. lx07NEWLINEn
  137. lx07DISPLAYls000C    number ==> n
  138. x05BEGIN
  139. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  140. lx07NEWLINEn
  141. lx07DISPLAYls000C    string ==> n
  142. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  143. lx07NEWLINEn
  144. lx07DISPLAYls000F    character ==> n
  145. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  146. lx07NEWLINEn
  147. lx07DISPLAYls000C    vector ==> n
  148. x05QUOTE
  149. x05WRITE
  150. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  151. lx07NEWLINEn
  152. lx07DISPLAYls0005 ==> n
  153. lx07DISPLAYls000A    variable n
  154. x0FERROR-PROCEDURE
  155. s0021could not single step expression:
  156. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  157. lx07NEWLINEn
  158. lx07DISPLAYls0009    nil ==> n
  159. x0EEXPAND-MACRO-1
  160. x04STEP
  161. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  162. lx07NEWLINEn
  163. lx07DISPLAYls000B    macro ==> n
  164. lx07NEWLINEn
  165. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  166. lx07NEWLINEn
  167. lx07DISPLAYls000A    call ==> n
  168. x02IF
  169. x06GENSYM
  170. x04LIST
  171. lx05QUOTEllx02IFnn
  172. x06APPEND
  173. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  174. lx07NEWLINEn
  175. lx07DISPLAYls0008    if ==> n
  176. lx07NEWLINEn
  177. lx14DECREMENT-CALL-DEPTHn
  178. x06LAMBDA
  179. x04SET!
  180. x03LET
  181. lx14INCREMENT-CALL-DEPTHn
  182. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  183. lx07NEWLINEn
  184. lx07DISPLAYls0008    if ==> n
  185. lx05QUOTElx0AQUASIQUOTElx07UNQUOTElx10UNQUOTE-SPLICINGlx06ACCESSlx05FLUIDlx05DELAYlx06FREEZElx08UNBOUND?lx0CFLUID-BOUND?n
  186. x07DISPLAY
  187. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  188. lx07NEWLINEn
  189. lx07DISPLAYls0005 ==> n
  190. lx05BEGINlx06BEGIN0n
  191. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  192. lx07NEWLINEn
  193. lx07DISPLAYls0005 ==> n
  194. lx06LAMBDAlx0CNAMED-LAMBDAlx0CFLUID-LAMBDAn
  195. lx06LETREClx04LET*lx09FLUID-LETn
  196. x06DEFINE
  197. x04EVAL
  198. s0016can't handle this case
  199. x07UNQUOTE
  200. x0AQUASIQUOTE
  201. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  202. lx07NEWLINEn
  203. lx07DISPLAYls0011    application ==> n
  204. lx07NEWLINEn
  205. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  206. lx07NEWLINEn
  207. lx07NEWLINEn
  208. lx07DISPLAYls0010    evaluation ==> n
  209. lx07NEWLINEn
  210. lx14DECREMENT-CALL-DEPTHn
  211. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  212. lx07NEWLINEn
  213. lx07DISPLAYls0010    evaluation ==> n
  214. lx07NEWLINEn
  215. lx14INCREMENT-CALL-DEPTHn
  216. x04CONS
  217. x05APPLY
  218. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  219. lx07NEWLINEn
  220. lx07DISPLAYls0011    application ==> n
  221. lx07NEWLINEn
  222. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  223. lx07NEWLINEn
  224. lx07NEWLINEn
  225. lx07DISPLAYls0010    evaluation ==> n
  226. lx07NEWLINEn
  227. lx14DECREMENT-CALL-DEPTHn
  228. lx14INCREMENT-CALL-DEPTHn
  229. x03MAP
  230. lx04NAMElx05EXPRSn
  231. x04NAME
  232. x05EXPRS
  233. llx07NEWLINEnn
  234. lx07DISPLAYls0011    entry block ==> n
  235. llx07DISPLAYls000C    entry blocknllx07NEWLINEnn
  236. llx07NEWLINEnllx07NEWLINEnn
  237. lx07DISPLAYls0010    exit block ==> n
  238. llx07DISPLAYls000B    exit blocknllx07NEWLINEnllx07NEWLINEnn
  239. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  240. lx07NEWLINEn
  241. lx07DISPLAYls000C    result ==> n
  242. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  243. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  244. lx07NEWLINEn
  245. lx07DISPLAYls0005 ==> n
  246. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  247. lx07NEWLINEn
  248. lx07DISPLAYls000B    bound ==> n
  249. lx07NEWLINEn
  250. x0AVECTOR-REF
  251. x0CEXPAND-MACRO
  252. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  253. lx07NEWLINEn
  254. lx07DISPLAYls0011    vector-set! ==> n
  255. lx07NEWLINEn
  256. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  257. lx07NEWLINEn
  258. lx07DISPLAYls000A    set! ==> n
  259. lx07NEWLINEn
  260. lx14DECREMENT-CALL-DEPTHn
  261. lx14INCREMENT-CALL-DEPTHn
  262. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  263. lx07NEWLINEn
  264. lx07DISPLAYls000A    set! ==> n
  265. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  266. lx07NEWLINEn
  267. lx07DISPLAYls000C    define ==> n
  268. lx07NEWLINEn
  269. llx07NEWLINEnllx09STOP-STEPllx0FTHE-ENVIRONMENTnnn
  270. lx07DISPLAYls0016    procedure define ==> n
  271. lx07NEWLINEn
  272. x0C#!UNASSIGNED
  273. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  274. lx07NEWLINEn
  275. lx07DISPLAYls000C    define ==> n
  276. x0CNAMED-LAMBDA
  277. llx07DISPLAYls0010    entry procedurenllx07NEWLINEnn
  278. llx07NEWLINEnn
  279. lx07DISPLAYls0015    entry procedure ==> n
  280. x0CFLUID-LAMBDA
  281. llx07DISPLAYls000F    exit procedurenllx07NEWLINEnn
  282. llx07NEWLINEnn
  283. lx07DISPLAYls0014    exit procedure ==> n
  284. lx04SET!lx0ESTEP-LEAP-MODElnn
  285. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  286. lx07NEWLINEn
  287. lx07DISPLAYls000C    result ==> n
  288. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  289. x0ESTEP-LEAP-MODE
  290. lx09STOP-STEPllx0FTHE-ENVIRONMENTnn
  291. lx07NEWLINEn
  292. lx07NEWLINEn
  293. lx07DISPLAYls0005 ==> n
  294. lx07DISPLAYls0001    n
  295. x05FLUID
  296. llx07NEWLINEnn
  297. lx07DISPLAYls0015    fluid parameter ==> n
  298. lx07NEWLINEn
  299. lx07NEWLINEn
  300. lx07NEWLINEn
  301. lx07DISPLAYls0005 ==> n
  302. lx07DISPLAYls000B    parameter n
  303. x0DCHAR-DOWNCASE
  304. x0CSTRING->LIST
  305. x0CLIST->STRING
  306. lx02IFlx06LETREClx03LETlx04LET*lx09FLUID-LETlx06LAMBDAlx0CNAMED-LAMBDAlx0CFLUID-LAMBDAlx06DEFINElx04SET!lx05QUOTElx0AQUASIQUOTElx07UNQUOTElx10UNQUOTE-SPLICINGlx06ACCESSlx05FLUIDlx08UNBOUND?lx0CFLUID-BOUND?lx05DELAYlx06FREEZElx05BEGINlx06BEGIN0lx04EVALn
  307. x09PCS*MACRO
  308. t▌<<1<)<%<+<*<<    <q     
  309. <>
  310. 
  311.  <
  312.   <─ 
  313. <╕
  314. < <τ<┘=;4"   5ë"6O O  O O  O O O  O ;#9Å"6O O  O O  O O O  O ;£"6O O  O O  O O O  O ;æ"6O O  O O  O O O  O ;  4"ZO  O O !O  O O  O"O#OO $O O %O  O ;&' 4;O O  O (O  )O O *O  O ;@  4"@ A  5 @  4#äO  O O O  +4O  O  O O +4O,OO-O.O O /O  0O O O ;O  O O O   4 4 O 1O  2O O 3O  O ; 4e#α 54545454 4$O  $O  $ O $ O  $O $ $C$$O$$( O$($O$$O$$(I((O((, O(,(O((O((,@,,O,,0,O,0,O,,O,,O,,O((,O$$(O(O,06O,0,O046O040O486O484O44O004O,,007O,0,08O,0,O,,0O,0,O04O040O489O4848:O884O0084;O0404<O440O,,40=O00,O((0,>O(,(,C,,O,,0,O,0,O,,O,,0?O,0,O0O,,00O,0,0E004,O040O00O004?O040O4O0044O040O00O,,0O,,04O,0,O,,O((,O((O$$((@O$($O$$(AO$($(BO$($(CO(($O  ($DO $ $O$ ;E h"j 4OFOOO OOOOOGOHOOIOOO;J h#x 4OFOOO OOO 4OOKOLOOMOOO;N h"@A 5O h"@ A
  315. 5@ e".@É"@oC E 
  316.  5@ A
  317. 5P e" @A 5 ? e" @A     5 Q e"
  318. 5 ;545454@A " &R 4; O  O$(PO$($O(,QO(,(O((, O(,(O((,O(,(,O,,0SO,0,O,,0QO,0,O,,0TO,0,O,,0O,0,0O004SO040O004,O040O004TO040O004QO040O00O004?O0404O448SO484O448QO484O448TO484O448O484O8<O8<8O<@UO<@<@VO@@<O88@<WO8<8<XO<<8O44<O0044YO0404ZO440O,,40[O,0,0\O,0,0]O00,O((0,^O,,(O$$,O  $$>O $ O$(QO$($O$$( O$($O$$(O$($O(,,O(,(O((,_O(,(,`O,,(O$$,(aO$($(bO$($(O$($O$$O  $O  $cO $ $O$ ;545454OO PO  O  $ O $ O  $O $ $O$$(O$($(dO$($O$$(O$($(O((,O(,(,eO(,(O((O((,?O(,(,O,,0O,0,0dO,0,O,,0O,0,O04O040O48fO4848gO884O0084hO0404iO440O,,4O((,,jO(,(,kO,,(O$$,(lO$($(mO$($(nO(($O  ($oO$$ O$O>OOOpOO;  <q 5 O ,O ; ▌rst4OFOtOsⁿqⁿⁿOO OOO
  319. <; q4  s" , s@  O  $ O $ O  $FO $ $uO  $$vO $   w 54$O(,s",,,s@,,O,,0 O,0,O,,0FO,0,0xO,,00yO,0, ,z$O0$4FO040O4$8{O4848|O884O0084}O440q,4O((,,>O,,(,t 4O,0>O,0,O,,O,,(O$(,O$$(~O(($ q (O  sⁿ qⁿⁿ O O O  ÇO  O üOOO;54 @ O@O OOFOOFOO éO  âO  O äOàOOO>OA,OOOOO ; ï "     @ åd # ªO ?O  O  O  O O O?Oç4O OOOO?Oç4O,OOêOëOOèOïO O O ;54OO OOFOOOO îO  ìO  O ÄOÅOOÉOO>OO?OO OOO,OOæOÆOôOOöOOOOOO?O;O PO ç454 C E OO $ O $ O  $FO $ O$(O$($O(,òO(,(,ûO,,(O$$,(ùO$($(ÿO(($O  (O  >O  $O  $$PO $ O  $ O $ O  $O $ $ï$"$V$(O$$((PO$($O$$( O$($O$$(O$($O( , O(,(O((,O(,(,ÖO((,,ÜO(,(,¢O,,(O$$,("(
  320. (,O((O(( (£O((q$((¥O$($(₧O(($O  ($ƒO $ $O $ O  O OO PO ; 544OFOOOO OOO O  >O O $ád $ê "   $Pd $ê "  í  @  O  $FO $ $óO  $$úO $ $(ñd$("$) $$<Æ q4 $  C$(ád$(ê$"$ $(Pd$(ê$"$$ $A$$$ 4$ (O((,0ád,0ê,", ,0Pd,0ê,",,Ñ ,@,,O,,0FO,0,0ªO,,00ºO,0, $0O004O0404O448¿O4848⌐O4848¬O884O0084½O440q,4O((,,>O,,(, 4O,0>O,0,O,,O,,(O((,O((,¼O,,($q$, q $$O $ O  O  ¡O  4O O O  O O «O  »O  O ░O▒OO▓OO;O  O O FO O │O  O O  ┤O ╡O  ╢O O ╖O  O ;"+É" @ É ê " A  0 ;;O  O  O FO  OO";É" @Éê"A 0⌐  ╕OO╣OO ║O ;╗═╝4 q 4 ╜5ï; ╛i ; ┐t êê;É;
  321. z
  322.